home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 July / 1988-07.d64 / window scroll (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  667b  |  20 lines
  1. 10 rem window scroll - copyright 1988 compute! publications, inc.
  2. 20 rem registers: 22,32,33
  3. 30 v=49152:s=49664:o=s+82:i=s+161:df=s+209
  4. 40 forx=828to852:readd:pokex,d:next
  5. 50 pokes+1,2:sysi
  6. 60 pokev+18*8,238:pokev+18*8+1,1
  7. 70 pokev+22*8,200:pokev+22*8+1,192
  8. 80 pokev+32*8,1:pokev+32*8+1,1
  9. 90 pokev+33*8,1:pokev+33*8+1,13
  10. 100 syss
  11. 110 print"[147][144]   notice how only the bottom line of"
  12. 120 print"   text scrolls.  the upper portion"
  13. 130 print"   of the screen remains stationary!"
  14. 140 print"this is a smooth scrolling text window.";
  15. 150 forx=6to0step-1:pokev+177,(peek(v+177)and248)+x:next
  16. 160 sys828:pokev+177,199:goto150
  17. 170 data173,18,208,208,251,173,192,7
  18. 180 data141,232,7,160,0,185,193,7,153
  19. 190 data192,7,200,192,40,208,245,96
  20.